setwd('Projects/BIM9/Sfari_Gene_CNV/scripts/graph_db/node_classification/model_metrics/')

# Read the CSV file into a data frame
data <- read.csv("DopamineGeneticGoSimilarity_embeddings.csv")

# Specify the columns you want to calculate statistics for
columns_to_calculate <- c("accuracy", "f1", "precision_asd", "precision_dd", "recall_asd", "recall_dd")

# Calculate the mean for the specified columns
means <- colMeans(data[columns_to_calculate])

# Calculate the standard deviation for the specified columns
sds <- apply(data[columns_to_calculate], 2, sd)

# Create a data frame to store the results
result_df <- data.frame(Column = columns_to_calculate, Mean = means, SD = sds)

# Print the result data frame
print(result_df)
